unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, ExtCtrls, cxControls,
  cxInplaceContainer, cxEditRepositoryItems, cxExtEditRepositoryItems,
  cxEdit, cxTextEdit;

type
  TForm1 = class(TForm)
    cxTreeList1: TcxTreeList;
    Panel1: TPanel;
    cxEditRepository1: TcxEditRepository;
    cxEditRepository1ButtonItem1: TcxEditRepositoryButtonItem;
    cxEditRepository1CalcItem1: TcxEditRepositoryCalcItem;
    cxEditRepository1CheckBoxItem1: TcxEditRepositoryCheckBoxItem;
    cxEditRepository1ColorComboBox1: TcxEditRepositoryColorComboBox;
    cxEditRepository1ComboBoxItem1: TcxEditRepositoryComboBoxItem;
    cxEditRepository1CurrencyItem1: TcxEditRepositoryCurrencyItem;
    cxEditRepository1DateItem1: TcxEditRepositoryDateItem;
    cxEditRepository1ProgressBar1: TcxEditRepositoryProgressBar;
    cxEditRepository1TimeItem1: TcxEditRepositoryTimeItem;
    cxTreeList1cxTreeListColumn1: TcxTreeListColumn;
    cxTreeList1cxTreeListColumn2: TcxTreeListColumn;
    procedure cxTreeList1cxTreeListColumn2GetEditProperties(
      Sender: TcxTreeListColumn; ANode: TcxTreeListNode;
      var EditProperties: TcxCustomEditProperties);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cxTreeList1cxTreeListColumn2GetEditProperties(
  Sender: TcxTreeListColumn; ANode: TcxTreeListNode;
  var EditProperties: TcxCustomEditProperties);
begin
  if (ANode.Index >= 0) and (ANode.Index < cxEditRepository1.Count-1) then
    EditProperties := cxEditRepository1.Items[ANode.Index].Properties;
end;

end.
